#!/usr/bin/perl -w
#a partir d'un fichier texte comprenant un scan de galaxie, extrait les actifs.
open(INPUT,$ARGV[0]);
while (<INPUT>){
	if (/^\d+:\d+:\d+\s+\w+/){
		print $_;
	}
}
